row_have_na <- function(vec_temp = c()){
  out_temp <- F
  for(i in is.na(vec_temp)){
    out_temp <- out_temp || i
  }
  return(out_temp)
}

####Test Area####
# row_have_na(c(1,NA, NA))
# 
# row_have_na(c(1,2, 3))
